home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0386.arc / WRKMENU.CMD < prev   
OS/2 REXX Batch file  |  1986-03-03  |  2KB  |  84 lines
  1. LISTING 1 R:BASE  5000 PROGRAMMING        NICHOLAS BARAN
  2.  
  3.  
  4. $COMMAND
  5. MAINPROC                     *(Main Command File)
  6. *(WRKMENU.CMD: compile to WRKMENU.PRC)
  7. set err mess off
  8. set mess off
  9. set err var dbcheck          *(Define an error trapping variable)
  10. set var dbcheck to -1
  11. set var choice to 0
  12. set var done to N
  13. newpage
  14. choose choice from menu1     *(Display Menu1 and Accept Selection)
  15. if choice eq 0 then
  16.   set err mess on
  17.   set mess on
  18.   quit
  19. endif
  20. if choice eq 1 then
  21.   newpage
  22.   fillin dbname using "Enter database name or <ENTER> to Quit: " at 4 5
  23.   if dbname exists then
  24.     open .dbname             *(Open the database specified at 4 5)
  25.     if dbcheck ne 0 then     *(Use error trapping variable)
  26.       write "Sorry, database doesn't exist, press any key to continue."
  27.       pause
  28.       goto end               *(processing skips to Label "End")       
  29.     endif                 
  30.     while done eq N then
  31.       newpage
  32.       choose choice1 from menu2
  33.       if choice1 eq 1 then
  34.         newpage
  35.         list all
  36.         write "Press any key to continue"
  37.         pause
  38.       endif
  39.       if choice1 eq 2 then
  40.         newpage
  41.         list tables
  42.         fillin tablname using "Please select table or <ENTER> to Quit: " at 15 5
  43.         newpage
  44.         if tablname exists then
  45.           choose choice2 from menu3
  46.           if choice2 eq 1 then
  47.              load .tablname with prompts 
  48.           endif                          
  49.           if choice2 eq 2 then
  50.              edit all from .tablname
  51.           endif
  52.         endif
  53.       endif
  54.       fillin done using "Are you done with this database? (Y/N)  "
  55.     endwhile
  56.   endif
  57.   label end
  58. endif
  59. if choice eq 2 then
  60.   newpage
  61.   Fillin pathname using "Enter Path or <ENTER> to Quit: " at 4 5
  62.   if pathname exists then
  63.     dir .pathname
  64.     write "Press any key to continue"
  65.     pause
  66.   endif
  67. endif
  68. run mainproc in wrkmenu.prc
  69. $MENU
  70. menu1
  71. column  Main Menu (Esc to Exit) *(Specifies vertical menu and Heading)
  72. Select a Database               *(Selection 1)
  73. List Files                      *(Selection 2)
  74. $MENU
  75. menu2
  76. column Action Menu
  77. List Tables and Columns
  78. Work on the Database
  79. $MENU
  80. menu3
  81. column Work Menu
  82. Add Records
  83. Display/Edit/Delete Records
  84.